home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 2.iso / vantag.arc / !Vantage_PS_Procs < prev    next >
Encoding:
Text File  |  2001-07-06  |  4.5 KB  |  203 lines
  1. %%BeginResource: procset Cerilica_VantageProcs 0.63 0
  2. %%Title: (Vantage Procedures)
  3. %%Version: 0.63 0
  4. %%CreationDate: (99/7/7) ()        % (7-Jul-1999)
  5. %%Copyright: ((C) 1996 Cerilica All Rights Reserved)
  6. %%Author: (Simon Birtwistle)
  7. /D4Dict 40 dict def
  8. D4Dict begin
  9.  
  10. /D4PageSize {                % <width> <height> D4PageSize
  11.     /setpagedevice where {pop
  12.         4 dict dup begin 3 1 roll
  13.         /PageSize [ 4 2 roll ] def
  14.         /Orientation 0 def
  15.         /ImagingBBox null def
  16.         end setpagedevice
  17.     } {
  18.         /setpageparams where {pop
  19.             0 1 4 -1 roll /measure where {pop
  20.                 measure 2 copy ge {exch} if pop
  21.             } if
  22.             4 1 roll setpageparams
  23.         } {pop pop} ifelse
  24.     } ifelse
  25.     }def
  26.  
  27. /D4Range {                % <value> <low> <high> D4Range
  28.     3 1 roll 2 copy lt {exch} if
  29.     pop 2 1 roll 2 copy gt {exch} if
  30.     pop
  31.     }bind def
  32.  
  33.                     % <size> <ang> {D4Spot<n>} setscreen
  34. /D4Spot0 {                % Round spot
  35.     abs exch abs 2 copy add 1
  36.     gt { 1 sub dup mul exch
  37.          1 sub dup mul add 1
  38.        }
  39.        { dup mul exch
  40.          dup mul add 1 exch
  41.        } ifelse sub
  42.     }def
  43.  
  44. /D4Spot1 {                % Square spot
  45.     dup mul exch dup mul 2 copy gt {exch} if pop
  46.     }def
  47.  
  48. /D4Spot2 {                % Elliptical spot
  49.     dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub
  50.     }def
  51.  
  52. /D4Spot3 {                % Straight line spot
  53.     pop
  54.     }def
  55.  
  56. /D4Spot4 {                % Crosshatch spot
  57.     dup mul exch dup mul 2 copy lt {exch} if pop
  58.     -1 1 D4Range
  59.     }def
  60.  
  61. /D4GAM 1.0 def
  62. /D4MAX 1.0 def
  63. /D4MIN 0.0 def
  64.  
  65. /D4Transfer {            % <highlight%> <shadow%> <gamma> D4Transfer
  66.     D4Dict begin
  67.     /D4GAM exch def
  68.     100.0 div /D4MAX exch def
  69.     100.0 div /D4MIN exch def
  70.     end
  71.     [
  72.     { 1.0 exch sub
  73.       dup dup 0 ne exch 1 ne
  74.       and { D4GAM exp
  75.         D4MAX D4MIN sub mul
  76.         D4MIN add
  77.         0 1 D4Range
  78.       } if
  79.       1.0 exch sub
  80.     } /exec load currenttransfer /exec load ] cvx settransfer
  81.     }bind def
  82.  
  83. /D4ST 0 def
  84. /D4STjoin 1 def
  85. /D4STshow /show load def
  86. /D4STashow /ashow load def
  87. /D4STwidthshow /widthshow load def    % not used by PDriverPS
  88. /D4STawidthshow /awidthshow load def
  89. /D4STkshow /kshow load def
  90.  
  91. /D4STset {                % <strokewidth> <linejoin> D4STset
  92.     D4Dict begin /D4STjoin exch def /D4ST exch def end
  93. } bind def
  94.  
  95. /show {                    % (string) show
  96.     D4ST 0 eq {D4STshow} {
  97.      % emulate show using charpath
  98.      currentlinewidth exch 
  99.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  100.      {(a) dup 0 4 3 roll put
  101.       false charpath
  102.       currentpoint stroke moveto} forall
  103.      setlinewidth
  104.     } ifelse
  105. } bind def
  106.  
  107. /kshow    {                % {proc} (string) kshow
  108.     D4ST 0 eq {D4STkshow} {
  109.      % emulate kshow using show
  110.      dup 0 1 getinterval show
  111.      dup length 1 sub dup 0 gt {
  112.       % inside here if string is longer than 1 char
  113.       1 1 3 2 roll {
  114.        % inside here like inside forall
  115.        dup dup 3 index exch get exch
  116.        3 index exch get 4 index exec
  117.        1 index exch 1 getinterval show
  118.       } for
  119.      } if
  120.      pop pop
  121.     } ifelse
  122. } bind def
  123.  
  124. /ashow {                % x y (string) ashow
  125.     D4ST 0 eq {D4STashow} {
  126.      % emulate ashow using charpath
  127.      currentlinewidth exch 
  128.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  129.      {(a) dup 0 4 3 roll put
  130.       false charpath
  131.       currentpoint exch 4 index add exch 3 index add
  132.       stroke moveto} forall
  133.      setlinewidth
  134.      pop pop
  135.     } ifelse
  136. } bind def
  137.  
  138. /widthshow {                % cx cy char (string) widthshow
  139.     D4ST 0 eq {D4STwidthshow} {
  140.      % emulate widthshow using charpath
  141.      currentlinewidth exch 
  142.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  143.      {dup 3 index eq exch
  144.       (a) dup 0 4 3 roll put
  145.       false charpath currentpoint
  146.       3 2 roll {exch 5 index add exch 4 index add} if
  147.       stroke moveto} forall
  148.      setlinewidth
  149.      pop pop pop
  150.     } ifelse
  151. } bind def
  152.  
  153. /awidthshow {                % cx cy char x y (string) awidthshow
  154.     D4ST 0 eq {D4STawidthshow} {
  155.     % emulate awidthshow using charpath
  156.      currentlinewidth exch 
  157.      D4ST setlinewidth D4STjoin setlinejoin [] 0 setdash
  158.      {dup 5 index eq exch
  159.       (a) dup 0 4 3 roll put
  160.       false charpath currentpoint
  161.       exch 5 index add exch 4 index add
  162.       3 2 roll {exch 7 index add exch 6 index add} if
  163.       stroke moveto} forall
  164.      setlinewidth
  165.      pop pop pop pop pop
  166.     } ifelse
  167. } bind def
  168.  
  169. /D4save [] def
  170. /D4stack 0 def
  171. /D4count 0 def
  172.  
  173. /D4BeginEPS{
  174.     /D4save save store
  175.     /D4stack countdictstack store
  176.     /D4count count 7 sub store
  177.     userdict begin
  178.     /showpage{}def
  179.     0 setgray 0 setlinecap
  180.     1 setlinewidth 0 setlinejoin
  181.     10 setmiterlimit []0 setdash newpath
  182.     /languagelevel where{pop
  183.         languagelevel 1 ne{
  184.             false setstrokeadjust false setoverprint
  185.         }if
  186.     }if
  187.     4 index sub exch 5 index sub exch 4 2 roll
  188.     4 index sub exch 5 index sub exch 6 4 roll
  189.     6 array astore concat
  190.     0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath clip
  191.     newpath
  192. }bind def
  193.  
  194. /D4EndEPS{
  195.     count D4count sub{pop}repeat
  196.     countdictstack D4stack sub{end}repeat
  197.     D4save restore
  198. }bind def
  199.  
  200. end
  201. %%EndResource
  202.  
  203.